home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 21 / Cream of the Crop 21 (Terry Blount) (October 1996).iso / bbs / pad311.zip / COUNTCHA.MH < prev    next >
Text File  |  1996-08-21  |  409b  |  17 lines
  1. #ifndef __COUNTCHA_MH
  2. #define __COUNTCHA_MH
  3.  
  4. // Counts the number of occourances of a character within a string. The number
  5. // of occourances is returned.
  6.  
  7. int countChar (string: theString, char: theChar) {
  8.   int: idx, count;
  9.   count := 0;
  10.   for (idx := 1; idx <= strlen (theString); idx := idx + 1) {
  11.     if (theString [idx] = theChar) count := count + 1;
  12.     };
  13.   return count;
  14.   }
  15.  
  16. #endif
  17.